﻿Imports System
Imports System.Workflow.ComponentModel

Namespace System.Workflow.Runtime.DebugEngine
    Friend NotInheritable Class InstanceData
        Implements ICloneable
        ' Methods
        Public Sub New(ByVal rootActivity As Activity)
            Me.rootActivity = rootActivity
        End Sub

        Private Function System.ICloneable.Clone() As Object Implements ICloneable.Clone
            Return New InstanceData(Me.rootActivity)
        End Function


        ' Properties
        Public Property RootActivity As Activity
            Get
                Return Me.rootActivity
            End Get
            Set(ByVal value As Activity)
                Me.rootActivity = value
            End Set
        End Property


        ' Fields
        Private rootActivity As Activity
    End Class
End Namespace

